10 REM GENERATE TOKEN LIST
20 A=PEEK(44)*256+PEEK(43)
30 I=PEEK(A+3)*256+PEEK(A+2)
40 IF I<128 OR I>255 THEN60
50 POKE A+4,I
60 A=PEEK(A+1)*256+PEEK(A)
70 IFPEEK(A)+PEEK(A+1)<>0THEN30
80 END
128 PRINT
129 PRINT
130 PRINT
131 PRINT
132 PRINT
133 PRINT
134 PRINT
135 PRINT
136 PRINT
137 PRINT
138 PRINT
139 PRINT
140 PRINT
141 PRINT
142 PRINT
143 PRINT
144 PRINT
145 PRINT
146 PRINT
147 PRINT
148 PRINT
149 PRINT
150 PRINT
151 PRINT
152 PRINT
153 PRINT
154 PRINT
155 PRINT
156 PRINT
157 PRINT
158 PRINT
159 PRINT
160 PRINT
161 PRINT
162 PRINT
163 PRINT
164 PRINT
165 PRINT
166 PRINT
167 PRINT
168 PRINT
169 PRINT
170 PRINT
171 PRINT
172 PRINT
173 PRINT
174 PRINT
175 PRINT
176 PRINT
177 PRINT
178 PRINT
180 PRINT
181 PRINT
182 PRINT
183 PRINT
184 PRINT
185 PRINT
186 PRINT
187 PRINT
188 PRINT
189 PRINT
190 PRINT
191 PRINT
192 PRINT
193 PRINT
194 PRINT
195 PRINT
196 PRINT
197 PRINT
198 PRINT
199 PRINT
200 PRINT
201 PRINT
202 PRINT
203 PRINT
204 PRINT
205 PRINT
206 PRINT
207 PRINT
208 PRINT
209 PRINT
210 PRINT
211 PRINT
212 PRINT
213 PRINT
214 PRINT
215 PRINT
216 PRINT
217 PRINT
218 PRINT
219 PRINT
220 PRINT
221 PRINT
222 PRINT
223 PRINT
224 PRINT
225 PRINT
226 PRINT
227 PRINT
228 PRINT
229 PRINT
230 PRINT
231 PRINT
232 PRINT
233 PRINT
234 PRINT
235 PRINT
236 PRINT
237 PRINT
238 PRINT
240 PRINT
241 PRINT
242 PRINT
243 PRINT
244 PRINT
245 PRINT
246 PRINT
247 PRINT
248 PRINT
249 PRINT
250 PRINT
251 PRINT
252 PRINT
253 PRINT
254 PRINT
255 PRINT
256 END
500 REM MODIFY BASIC O/S
510 FORI=40960TO49151
520 POKEI,PEEK(I):NEXT
530 POKE 42781,204
540 POKE 42782,176
550 POKE 1,54
560 END